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SYSTEM FOR GENERATING OPTIMIZED COMPUTER DATA FIELD 

CONVERSION ROUTINES 

FIELD OF THE INVENTION 

The present invention is directed to computer data. More particularly, the 
present invention is directed to the conversion of one type of computer data field to 
another type, 

BACKGROUND OF THE INVENTION 

In many instances during computer processing of information, computer data 
must be converted from one data field type to another. For example, whenever data is 
passed from one program to another, the data typically goes though several 
conversions during the process, such as converting from text digits to a binary 
number. 
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The typical technique for converting data includes using a generic data 
conversion routine. When an entire record of data must be converted, the conversion 
routine must determine what the characteristics or attributes are for each of the data 
fields in the record. This may require the conversion routine to execute the same 
decision tree for each field for each record even though each field has known 
characteristics that do not change on a row by row basis. Therefore, many computer 
cycles are wasted by asking questions such as "Is this field of type character, integer, 
etc.?" over and over for each data field. 

Based on the foregoing, there is a need for a system that provides efficient 
conversion of data fields. 

SUMMARY OF THE INVENTION 

One embodiment of the present invention is a system for x:onverting data from 
input field types to output field types. The system receives a plurality of input 
attributes and output attributes from an application program, dynamically generates a 
plurality of data field conversion routines for each set of input attributes and output 
attributes, and stores the plurality of data field conversion routines in memory that is 
accessible to the application program. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 is a block diagram that illustrates an overview of the functionality of an 
optimized conversion generator system in accordance with one embodiment of the 
present invention. 

Fig, 2 is a flowchart of the steps performed by the system in accordance with 
one embodiment of the present invention to generate optimized conversion routines. 

Fig. 3 is a flowchart of the steps executed by the application when using the 
routines to convert input fields to output fields. 

Fig. 4 is a flowchart of the code generating steps executed the conversion 
generator system to generate code when called by the application. 

Figs. 5a and 5b illustrate a general example of dynamic code building that is 
used in one embodiment of the present invention. 

Figs, 6a - 6h illustrate a specific example of a dynamic code generation routine 
that performs CHARACTER to CHARACTER conversions. 

DETAILED DESCRIPTION 

One embodiment of the present invention is a system that generates optimized 
data field to data field conversion routines for each type of conversion required by an 
application program. Fig. 1 is a block diagram that illustrates an overview of the 
functionality of an optimized conversion generator system 20 in accordance with one 
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embodiment of the present invention. System 20 can be implemented in software and 
executed on a general purpose computer that includes a central processing unit, and 
memory. In one embodhnent, system 20 is unplemented with IBM/360 machine 
instructions. 

An application program 10 requires one or more types of field conversions to 
be executed. For each type of conversion, application 10 provides to system 20 the 
input (or "source") and output (or "destination") field attributes. For each set of 
input and output field attributes, system 20 dynamically generates an optimized 
conversion routine 30 that performs the conversion. The optimized routines 30 are 
placed in storage that is available to application 10. 

The routines 30 in one embodiment are generated as stand-alone routines that 
are capable of being serially reusable and are called by application 10 using, for 
example, an application program interface ("API") when a conversion is required. In 
another embodunent, the routines 30 are generated as code chunks that are inserted 
mline with application 10 and are directly accessed when a conversion is required. 

One benefit of the present invention is that by building optimized conversion 
routines specifically tailored to the input and output field attributes, every execution of 
the routine saves numerous instructions that would normally be needed to identify 
field attributes each time the conversion is executed. 
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Fig. 2 is a flowchart of the steps performed by system 20 in accordance with 
one embodiment of the present invention to generate optimized conversion routines 
30. The steps are executed by system 20 after application 10 determines at step 100 
what attributes the input fields and output fields have. 

At step 102, system 20 sets up the default process options of the generated 
conversion routines 30. The options may include whether the generated conversion 
routines 30 will be callable functions (i.e., able to be called by application 10), or 
copied inline into application 10. Step 102 builds a template interface block 104 
which is an interface between application 10 and conversion generator system 20. 
Step 102 also generates an initiation call 106 that obtains the necessary storage and 
checks for errors. 

At step 108, a loop is initiated. The loop continues until all fields that must be 
converted are exhausted. 

Within the loop, at step 110 each set of input and output field attributes is 
received from application 10. The attributes are received through an API, and step 
110 also builds a common field conversion interface block 116 based on the attributes. 

At step 112, the code generator of system 20 is called, using the common 
interface block 116. Step 112 generates code 118. 

At step 114, a function pointer that points to the generated field conversion 

routine 30 is saved. 
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Fig, 3 is a flowchart of the steps executed by application 10 when using 
routmes 30 to convert input fields to ou^ut fields. 

During step 122, the application is processing. At step 124, the application 
obtains source or uiput data to convert. Typically, step 124 uivolves readmg one or 
more records. 

At step 126, a loop is initiated for each record read. At step 128, in one 
embodiment the appropriate conversion routine 30 for the conversion is called. 

When all the data field and records are converted, at step 132 the code 
generator system 20 is called for termination. This results in freeing up memory at 
step 134. 

At step 136, application 10 continues to process. Finally, at step 138 
application 10 is completed. 

Fig. 4 is a flowchart of the code generating steps executed by conversion 
generator system 20 to generate code when called by application 10. 

At step 200, system 20 initializes by, for example, establishing the required 
storage, checking for invalid options, and specifying how the code should be 
generated. 

At step 202, system 20 validates specific field conversion options such as 
verifying that the input and output lengths are correct. Step 202 also determines how 
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big the code will be when generated. This can be used by application 10 if the 
generated code will be stored inline. 

At step 204, system 20 builds the conversion routine using field conversion 
interface block 116. 

At step 206, the storage obtained at step 200 is released. 

Steps 202 and 204 go through the same internal process. Therefore, at step 
208 the input field type is determined. Examples of mput field types include character 
input 210 or special time format mput 212. However, any input field type is 
supported by the present invention. 

Similarly, at step 214 the output field type is determined. Examples of output 
field types also include character input 213 or special time format mput 215, but any 
output field type is supported by the present invention. 

At step 216, if step 202 was executed, the size of the generated code is 
determined. At step 218, if step 204 was executed, the field conversion routines 30 
are generated. 

As disclosed, system 20 in accordance with one embodiment of the present 
invention dynamically generates optimized conversion routmes 30 for each set of input 
and output field attributes. Routines 30 are then utilized by application 10 to process 
conversions. Input and output fields are categorized into archetypal data types by 
system 20, each with definable attributes and conversion behaviors. For example: 
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• Character data types will be a fixed length field with a maximum length 
attribute and a CCSID (or character set code page) attribute. 

• Date data types will be a fixed length field with a maximum length 
attribute and a format attribute (ISO, EUR, etc) which determines 

5 location and type of separators used in date. 

Some previously described or additional features included in one embodiment 
of optimized conversion generator system 20 include: 

• Optionally obtain and free storage for API control blocks and/or 
lU generated code. 

1^ • API control blocks can be chained and templated by API management 

% functions. 

n • API control blocks can be built through use of a macro interface. 

• Conversion routmes can utilize registers to address the mput and ouQ)ut 
field locations directly. The registers can be chosen by application 10 

1 5 through API parameters . 

• The source field address register may optionally be incremented to the 
end of the input field after conversion based on API parameters. 

• The target field address register may optionally be incremented to the 
end of the formatted field after conversion based on API parameters. 



6058487 



-8- 



Docket No. 22074661-25541 

• An additional register may be incremented by the length of the 
converted field based on API parameters. 

• Standard Linkage may be generated for conversion routmes based on 
API parameters. 

• Conversion Error exits may be specified to handle enumerated 
conversion error conditions based on API parameters. 

• Character Code Set translation conversion code can be generated based 
on API parameters (i.e., ASCII character fields can be translated to 
EBCDIC character fields). 

• Conversion routines can be generated to utilize the latest instructions 
supported by the level of the operating system for which the code is 
being generated. 

In one embodiment, system 20 dynamically generates code by building code 
chunks in storage accessible by calling application 10 based on various settmgs in the 
API control block. Generatmg the code involves the following steps, as discussed m 
conjunction with the flowcharts: 

L Obtain storage for the code. 

2. Identify code templates needed. 

3. Move code templates. 

4. Modify code templates. 
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5. Return executable code to calling application. 

Further, in one embodiment system 20 can optionally, based on the API 
specification, generate program debuggmg instrumentation for the dynamically 
generated code. This instrumentation can include an optional dynamically allocated 
output file containing, for each field conversion: a report of the API options used for 
each dynamically generated routine that can be used to insure correctness of field 
attributes and general processing options; and a disassembled listing of the 
dynamically generated routine provided by an internal disassembler within system 20 
that can be used to identify conversion code inaccuracies and areas of further 
optimization, and to help resolve generated code failures. 

Figs. 5a and 5b illustrate a general example of dynamic code building that is 
used in one embodiment of the present invention. 

Figs. 6a - 6h illustrate a specific example of a dynamic code generation routine 
that performs CHARACTER to CHARACTER conversions. 

Several embodiments of the present invention are specifically illustrated and/or 
described herein. However, it will be appreciated that modifications and variations of 
the present invention are covered by the above teachings and within the purview of the 
appended claims without departing from the spirit and intended scope of the invention. 
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WHAT IS CLAIMED IS: 

1 LA method of converting a plurality of input field types to a plurality of 

2 output field types by an application program, said method comprising: 

3 (a) receiving a first attribute of a first input field type and a second attribute of 

4 a first output field type; 

5 (b) generating a first optimized conversion routine based on said first attribute 

6 and said second attribute; and 

r€ (c) executing said first optimized conversion routine from said application 

11 program to convert said first input field type to said first output field type. 

2. The method of claim 1, wherein step (c) comprises calling said first 

^3 optimized conversion routine from said application. 

'i 3. The method of claun 1, wherein step (c) comprises storing said first 

2 optimized conversion routine inline with said application. 

1 4. The method of claim 1, wherein step (b) is performed dynamically while 

2 said application program is executing. 

1 5. The method of claun 1, ftirther comprismg: 
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2 (d) receiving a third attribute of a second input field type and a fourth attribute 

3 of a second output field type; 

4 (e) generating a second optimized conversion routine based on said third 

5 attribute and said fourth attribute; and 

6 (f) executing said second optimized conversion routine from said application 

7 program to convert said second input field type to said second output field type. 

f$ 6. The method of claun 1, wherein said first and second attribute is character 

m type, 

% 7. The method of claim 1, further comprising generating program debugging 

O instrumentation for said first optimized conversion routine. 

% 8. A method of convertmg data from input field types to output field types, 

2 said method comprising: 

3 (a) receiving a plurality of input attributes and output attributes from an 

4 application program; 

5 (b) dynamically generatmg a plurality of data field conversion routines for 

6 each set of input attributes and output attributes; and 
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7 (c) storing said plurality of data field conversion routines in memory accessible 

8 to said application program. 

1 9. The method of claim 8, wherein said data field conversion routines are 

2 callable by said application program. 

1 10. The method of claim 8, wherem said data field conversion routines are 

^ ;| stored inline said application program. 

11. The method of claim 8, wherein step (b) is performed dynamically while 

% said application program is executing. 

f j 12. The method of claim 8, wherein said input and output attributes are 

]%' character type. 

1 13. The method of claim 8, wherein said input and output attributes are date 

2 type. 

1 14. The method of claim 8, further comprising generatmg program debugging 

2 instrumentation for said plurality of data field conversion routines. 
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1 15. A system for dynamically generating computer data field conversion 

2 routines, said system comprising: 

3 a processor; and 

4 a memory device coupled to said processor; 

5 wherein said system is adapted to receive a plurality of input attributes and 

6 output attributes from an application program; and 

7 wherein said memory device stores instructions that, when executed by said 
f3 processor, cause said processor to: 

11 dynamically generate a phirality of data field conversion routines for each set 
of input attributes and output attributes; and 

j§ store said phirality of data field conversion routines in a second memory 

12 device accessible to said application program. 

% 16. The system of claim 15, wherem said data field conversion routines are 

2 callable by said application program, 

1 17. The system of claim 15, wherein said data field conversion routines are 

2 stored inline said application program. 
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1 18. The system of claim 15, wherein said plurality of data field conversion 

2 routines are generated while said application program is executing. 

1 19, The system of claim 15, wherein said input attributes are character type 

2 and said output attributes are date type. 

1 20. The system of claim 15, wherein said processor further generates program 

debugging instrumentation for said plurality of data field conversion routines. 
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ABSTRACT OF THE DISCLOSURE 

A system converts data from input field types to output field types. The 
system receives a plurality of input attributes and output attributes from an application 
program, dynamically generates a plurality of data field conversion routines for each 
set of input attributes and output attributes, and stores the plurality of data field 
conversion routines in memory that is accessible to the application program. 
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R5 = Current Instruction Offset within application buffer 

R6 = Current Instruction Address within application buffer 

R7 = Work Register - used for calculating offsets, etc 

R12 = Base register of code generator and template code 

SLR R5,R5 clear offset 

L R6 , $BCB_BCODE__® get address of user buffer 

* if linkage required call standard linkage builder 
IF (TM, $BCB_PFLAG1 , $BCB_LINKAGE , O) 

SETF LINKAGE 

IF (CLI,$BCB_LINKAGE_TyPE,EQ,C'N» ) 

RESETF LINKAGE 
COND ELSE 

* call standard linkage builder 

#BAS 14 , =A ( BURST_ENTRy_LINKAGE ) 

ENDIF 
ELSE 

RESETF LINKAGE 
ENDIF 
**** 

STDRETURN - RETURN TO APPLICATION 

* $BCB_BCOI)E_® WILL POINT TO BUILT CODE 
**** 

* 

* Routine to build standard entry linkage 

BURST_ENTRY_LINKAGE CSMSUBI BASE=R10 , W0RKREG=R3 
* 

* Move Template code into user buffer 

MVC 0 { STD_ENTL_0 1 0_L , R6 ) , STD_ENTL_0 1 0 

* 

* Modify " LA R14,0{0)" instruction 

* Get Offset to Savearea using equate STD_ENTL_010_SA_A 

* Set base register for instruction to R12 

* Set D(X,B) of instruction (R7 contains constructed D{X,B)) 

LA R7 , STD_ENTL_0 1 0_SA_A ( , R5 ) 

0 R7,=X'0000C000» 

STH R7 , STD_ENTL_0 10_SA_T { , R6 ) 
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* Modify " B 0(R12)" instruction 

* Get offset of branch target using equate STD_ENTL_010_B_A_T 

* Set D(X,B) of instruction {R7 contains constructed D(X,B)) 

* ** Note X (index register) has been set by assembler as R12 

* STH does not change the instruction's index register 

LA R7,STD__ENTL_010_B_A_T(,R5) CALC OFFSET FOR BRANCH TARGET 
STH R7,STD_ENTL_010_B_A{,R6) SET BRANCH D{X,B) 

* 

* Increment Next Instruction Offset (in R5) by length of code 

* Increment Next Instruction Address (in R6) by length of code 

LA R5 , STD_ENTL_0 10_L { , R5 ) 
LA R6 , STD_ENTL__0 1 0__L ( , R6 ) 

* 

* Return to caller 

* Code has been built and the Instruction Offset and Address registers 

* have been updated for next instruction construction 



CSMSUBO 
*- STANDARD ENTRY LINKAGE 



STD_ENTL^ 
STD ENTL 



^010 DS 

STM 
^010_SA__T 

LA 

ST 

ST 

LR 

LR 
_010_B_A 

B 



OS 



R14,R12, 12 (R13) 
EQU * - STD_ENTL_0 10+2 
R14, 0 (0) 
R13;4(,R14) 
R14,8{,R13) 
R13,R14 
R12,R15 
EQU * - STD_ENTL_0 10+2 
0 (R12) 



STD_ENTL_ 

STD ENTL 010 SA A EQU *-STD_ENTL_010 



DC 



STD_ENTL 
STD ENTL 



18F» 0 ' 

010_B_A_T EQU *-STD__ENTL_010 
'olO L EQU *-STD_ENTL_010 



BURSTED SAVEAREA+0 



R13 = BURSTED SAVEAREA 
SET BURSTED BASE REG 

WS BRANCH 
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Call made by API passing API $BURSTCB control block 

* Control block contains field attributes and conversion 

* options 

* Reset processing flags 

* NO_BUILD -> doing conversion routine storage calculation 

* CALLED_ROUTINE -> creating a called routine 

* Check for API block -> if not there abend with dump 

* Copy passed API block to working storage (IN_BCB) 

MAIN 0000 DS OS 



RESETF NO_BUILD 

RESETF CALLED__ROUTINE 

* 

LTR Rl , Rl 

BNZ MAIN_00 05 

★ 

□ ABEND 001, DUMP 

MAli_0005 DS OS 

MVC IN_BCB ($BCB_LENGTH) , 0 (Rl) 

* . '! 

LA R9,IN_BCB R9 = ADDRESS OF $BURSTCB 

^Z. us ING $BURSTCB , R9 

* ^if calculate storage requested SET NO_BUILD 

IF (CLC , $BCB_FUNC , EQ , =Y { $BCB_CALC_STORAGE) ) 
\J SETF NO_BUILD 

W ENDIF 

* INITIALIZE WORKING STORAGE 

* ^Cif actually BUILDING code {not NOJBUILD) 

* if^ 1. Obtain offset from beginning of BASE REGISTER 

* for code. If callable routine this has been set to 0. 

* otherwise this we are building inline code within the application's 

user managed buffer and the offset will set to current instruction offset 

* within the buffer, 

* 2. Obtain address of passed code buffer 

* 3. Calculate current instruction address based on offset into buffer 



Fig. 6a 



MAIN_STRT DS OS 

IF (iNO^BUILD) 

LH R5 , $BCB_BCODE_OFFSET 

L R6 , $BCB_BCODE_@ 

LA R6,0(R5,R6) 
ELSE 

SLR R5,R5 CLEAR FOR ACCUM 

SLR R6,R6 CLEAR FOR ACCUM 

ENDIF 

* 

* INITIALIZE WORK FIELDS FOR ANY COLUMN CONVERSION 

* 1. Obtain input field* s addressing register 

* 2. Build RX type assembler instruction D(X,B) with offset 0 

* 3. Obtain output field's addressing register 

* 4. Build RX type assembler instruction D(X,B) with offset 0 

* set template for output D(X,B) 

* 5. Obtain input and output lengths 

* 6. Set Current working D(X,B) templates 

SLR R7 , R7 

ICM R7,B'0001' ,$BCB_IREG 

O SLL R7,4 SHIFT NIBBLE 

kD STC R7 , WB_INIT_SOURCE^B 

m ICM R7,B' 0001»,$BCB_OREG 

SLL R7,4 SHIFT NIBBLE 

= , ] STC R7 , WB_INIT_TARGET_DB 

r: MVC WBJTOT^INPUTJLiEN, $BCB_ILEN 

MVC WB_TOT_OUTPUT_LEN,$BCB_OLEN 

MVC WB_SOURCE_DB,WB_INIT_SOURCE_DB RESET DB 

MVC WBjrARGET_pB,WB_INITjrARGET_pB RESET DB 

* CSCK FOR LINKAGE REQUIREMENTS 

* ifelLINKAGE = E (BASIC ENTRY - SAVE/RESTORE R14) THEN 

* k^BURST_WORK_BRANCH WILL SAVE R14 AND SET REST0RE_R14 

* ^r?BURST__EXIT_LINKAGE RESTORES R14 AND BASR R14 

* ElglF 

'Z RESETF REST0RE_R14 

IF (TM, $BCB_PFLAG1, $BCB_LINKAGE, O) 
SETF LINKAGE 

IF (CLI,$BCB_LINKAGE_TYPE,EQ,C'N*) 

RESETF LINKAGE 
COND ELSE 

#BAS 14 , =A (BURST_ENTRY_LINKAGE ) 

ENDIF 
ELSE 

RESETF LINKAGE 
ENDIF 
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* CALL INPUT TYPE PROCESSING ROUTINE 

* 1, Get address of input field type table 

* This table contains an index of supported input types 

* with their associated code generation routines 

* 2. Call code generation routine for Input field type 

* In this case INPUT FIELD TYPE IS CHARACTER 

* INPUT FIELD TYPE CHARACTER calls routine named CHARACTER 
***4r Further down subroutine CHARACTER is shown 

L R14 , =A (TYPE^TABLE) 

LH R15 , $BCB_ITYPE 

LA R15,0(R14,R15) 
L R15,0(,R15) 
BASR R14,R15 

* Subroutine has built conversion code for INPUT TYPE CHARACTER and OUTPUT TYPE CHARACTER 

* Check for other process options such as: accumulate a source addressing register, 

* accumulate a target addressing register, or accumulate alternate register. 

* alternate register usually is a total output length accumulator used by the calling 

* application to keep track of an aggregate of all output field lengths 

* 1, IF source addressing register accumulate requested build code to accumulate 

* 2. IF target addressing register accumulate requested build code to accumulate 

* 3^:1 IF length register accumulate requested build code to accumulate 

* 4-S IF exit linkage requested build exit linkage 

* RETURN TO API CALLER with generated conversion routine 
MAli^OSOO DS OS 

/'1 IF (TM , $BCB_PFLAG1 , $BCB__SRC_ACUM , O) 

^ LH RO , WB_S0URCE_ACCUM_1NDEX 

H= IC Rl, $BCB_SRC_ACUM_REG 

LH R7,WB_T0T_INPUT_LEN 
m #BAS 14,=A(FIXED__ACCUM) 

ENDIF 

ni IF (TM, $BCB_PFLAG1 , $BCB_TRG_ACUM, O) 

12. LH RO , WBJTARGET JVCCUM_INDEX 

IC Rl , $BCBjrRG_ACUM_REG 

LH R7 , WB_TOT_OUTPUT_LEN 

^0 #BAS 14 , =A (FIXED_ACCUM) 

ENDIF 

IF (TM, $BCB_PFLAG1 , $BCB_TRG_L_ACUM , 0) 

LH R 0 , WB_TARGET_ACCUM_INDEX 

IC Rl , $BCB_TLN_ACUTyi_REG 

LH R7 , WB_T0T_0UTPUT_LEN 

#BAS 14 , =A (FIXED_ACCUM) 
ENDIF 

* BURST EXIT LINKAGE 

IF (LINKAGE) 

SETF CLEAR_R15 

#BAS 14 , =A (BURST_EXIT_LINKAGE) 
ENDIF 

RETURN to CALLER 



Fig. 6c 



* * 

* Character Input Field Type Conversion Routine * 

* Abstract: * 

* This routine is called to either build Character Input * 

* Fields to all si^ported Output Field Types, or to calculate * 

* storage requirements for generated conversion routines for * 

* Input field type Character * 

* * 

* CHARACTER field type constraints * 

* These field types will be of fixed length * 

* Maximum length is 254 8bit bytes * 

* They may be proceeded with a null field indicator of length * 

* 1 byte that will contain values of x'OO* for non-null fields * 

* and x*ff ' for nulled fields. Nulled fields will not be * 

* converted accept to indicate on output that field was null * 

* There values are of EBCDIC CCSID (character code set) unless * 

* a CCSID is specified through the API. * 



CHAJl^CTER CSMSUBI BASE=R10 , W0RKREG=R3 

* uki branch table generated by API to branch on output type (BTyPE=0) 

* EilSlitgple is demonstrating character to character conversion 

* BH4nch will be taken to CHAR_CHAR_0000 

H X, R15,=A(RET_RC_32) 





$BURST BTABLE, 


X 




BREG=1, 


X 




BTYPE=0, 


X 




XJNSUPPORTED=0 (,R15) , 


X 




CHAR= CHAR_CHAR_0 000, 


X 




LVARC= C3mR_VARC_0 000, 


X 




VARC=CHAR VARC 0000 





*-®teEUDO-CODE@ 

* CHARACTER TO CHARACTER CONVERSION 



* -^IBETERMINE WORKING STORAGE 

* Some conversions require the generation of local working storage 

* Working storage is generated according to specific conversion options and 

* specific input and output field attributes to avoid generating more storage 

* than needed, 
* 

* IF CONVERTING CCSID' S (character code sets) THEN 

* IF using a character translation table (uses TR instruction) 

* Build BRANCH over working storage 

* Build FULL WORD to hold Address character translation table 

* UPDATE Previously built Branch instruction to branch to current offset 

* (offset is next halfword aligned byte where next instruction is to be built) 

* ENDIF 

* EMDIF 
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* IF INPUT LENGTH is GREATER than OUTPUT LENGTH 

* current implementation allows for truncation of trailing spaces 

* If input field being converted by generated code contains non-spaces 

* that won^t fit into output field of lesser length then conversion 

* error 4 routine will be called to return a value of 4 in R15 
* 

* 1 . Build BRANCH over working storage 

* 2, Build a buffer full of spaces to be used in INPUT field compare 

* 3, Build Conversion error routine to return error #4 

* 4. UPDATE Previously built Branch instruction to branch to current offset 

* (offset is next halfword aligned byte where next instruction is to be built) 

* ENDIF 

* - DETERMINE WORKING STORAGE 



* 

*-®PSEUDO-CODE® CHAR_CHAR_0OOO DS 

* 

* BURST WORKAREA IF CONVERSION ERROR OR CONVERT CCS ID 

TM $BCB_PFLAG2 , $BCB_CCSID_CNV 

BNZ CHAR_CHAR_0 02 0 

CLC $BCB_ILEN , $BCB_OLEN 

BNH CHAR_CHAR_0 04 0 

* "I 

CHa||^CHAR_0020 DS OS 

' ^ #BAS 1 4 , = A ( BURST_W0RK_BRANCH ) 

* ''M 

W IF (TM, $BCB_PFLAG2 , $BCB_CCSID_CNV, NZ) 

IF (TM, $BCB_PFLAG2 , $BCB_CCSID_CNV_ATOE, 0) 
JS #BAS 14 ; =A (BtJRST_BWK_TO_E__XLATE_®) 

UI ELSE 

r #BAS 14,=A(BURST_BWK_T0__0_XLATE_®) 

^-j ENDIF 

' i #BAS 14 , =A ( BURST_BWK_FULL ) 

!^ STH R7 , WB_SAVE_R2_0FFSET 

^ ENDIF 

* 

* ifi ILEN > OLEN THEN NEED FOLLOWING WORK FIELDS 

* BURST BUFFER255 - SPACES 

* BmST #@ERR0R4 CALL 

* ENDIF 

IF (CLC, $BCB_ILEN, GT, $BCB_OLEN) 

#BAS 14 , =A (BURST_BWK_BUFFER2 55 ) 

* 

LA Rl , 4 #®ERR0R4 

#BAS 14 , =A (BUILD^CNVERR) 
ENDIF 

* 

#BAS 14 , =A (UPDATE_WORK_BRANCH) 
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* IF OUTPUT NULLABLE THEN 

* BURST MOVEMENT OF NULL INDICATOR 

* Rl = X'OO' FOR MVI Instruction Builder 

* WB_TARGET_DB (current target D(B)) USED FOR INDICATOR LOCATION 

* Build MVI OF NULL INDICATOR (MVI_0000) 

* UPDATE Current TARGET D(B) TO ALLOW DATA TO SKIP NULL INDICATOR 

* ADD 1 TO TOT OUTPUT LENGTH {FOR NULL INDC) (this allows for accumulation requests) 

* ENDIF 

CHAR_CHAR_0040 DS OS 

IF (TM, $BCB_0FLAG1, $BCB_ONULL, 0) 



SLR 


R1,R1 


CLEAR SOURCE BYTE 


#BAS 


14,=A(MVI_0000) 


BURST MVI NULL INDC 


LH 


Rl , WB_TARGET_DB 


UPDATE TARGET DB 


LA 


R1,1(,R1) 




STH 


Rl , WB_TARGET_DB 




LH 


R1,WB TOT OUTPUT_LEN 


UPDATE OUTPUT LEN 


LA 


R1,1(,R1) 




STH 


R1,WB TOT OUTPUT_LEN 




ENDIF 







* ^ input length < then output length 

* ]^ call routine to build code to pad output field with spaces 

* SLse 

* '""'^ IF input length = Output length 

* yy Call routine to build an MVC instrxiction 

* This routine uses current source and target D(B)'s 

* £ and the output length to construct the instruction 

* :|i ELSE 

* J input length > output length 

* Call routine to build an MVC instruction 

* 7^ This routine call will use the input length (since it shorter) 

* (source and target D(B) *s will be used 

* ^ Build Code to check for truncation of only spaces 

* ^0 ENDIF 

* ^i2:ndif 



LH 


R1,$BCB_ILEN 


GET INPUT LEN 


LH 


R2 , $BCB_OLEN 


GET OUTPUT LEN 


CR 


R1,R2 


CHECK LENGTHS 


BE 


CHAR_CHAR_0 05 0 


EQUAL 


BH 


CHAR_CHAR_0100 


I > 0 -> 



* 

* INPUT LENGTH LESS THAN OUTPUT -> NEED TO PAD 

* Build Character padding code 

#BAS 14 , =A ( SSP_0 000) 

* 

* Build code TO MOVE CHARACTER FIELD TO CHARACTER FIELD 
CHAR_CHAR_0050 DS OS 

#BAS 14,=A(MVC_0000) BURST MVC INSTRUCTION 

B CHAR_CHAR_0200 
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* INPUT field is too large to fit 

* Build code TO MOVE CHARACTER FIELD TO CHARACTER FIELD using input field's length 
CHAR__CHAR_0100 DS OS 

LR R1,R2 

#BAS 14,=A(MVC_0000) BURST MVC INSTRUCTION 

* MOVE CHECK FOR SPACES 

* IF TRUNCATED DATA NOT SPACES THEN #®ERR0R4 



IF (-iN0__BUILD) 

* 

MVC 0 ( CHAR_CHAR_0 1 0_L , R6 ) , CHAR_CHAR_0 1 0 

* 

* SET LENGTH OF COMPARE 

LH R7,$BCB_ILEN 
SR R7 , Rl 

BCTR R7 , 0 

STC R7 , CHAR_CHAR__0 1 0_OLEN_A ( , R6 ) 

* 

* SET SOURCE DB TO SOURCE + OLEN-1 

LH R7 , WB_SOURCE_DB 

LA R7,0(R1,R7) 
% BCTR R7 , 0 

STH R7 , CHAR_CHAR_0 1 0_SDBN_A ( , R6 ) 

.* ^ ^ 

* UP|)ATE BUFFER OFFSET 

W LH R7 , WB_BUFFER2 5 5_0FFSET 

O R7,=X'OO00CO00' 
.J™ STH R7,CHAR_CHAR_010_B255_A(,R6) 

* ifl 

* UPDATE #®ERR0R4 BRANCH 

f-k LH R7 , WB_CNVERR4 JDFFSET 

STH R7,CHAR_CHAR_010_BERR_A(,R6) 

^ ENDIF (NO_BUILD) 

^0 LA R5 , CHAR_CHAR_0 1 0_L ( , R5 ) 

^0 LA R6,CHAR CHAR 010 L(,R6) 
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* CHECK FOR TRANSLATION of CCS ID'S 

* If translation requested call translation routine generator 

* *** note translation routine will perform accumulation 

* operation if API requested it. If accumulation is performed 

* by the routine the IN_BCB {copy of API block used by generator) 

* will be updated to turn off accumulation by the main process 

* done upon CHARACTER subroutine (see above) 

CHAR CHAR_02 00 DS OS 

IF (TM, $BCB_PFLAG2 , $BCB_CCSID_CNV,NZ) 

* IF IREG =2 AND SRC_ACCUM TR INST WILL BUMP REG 
SETF SAVE_R2 

IF {CLC,$BCB_IREG;EQ,=H'2*) ,AND, 

(TM, $BCB_PFLAG1, $BCB_TRG_ACIM+$BCB_TRG_L_ACUM,NZ) 
RESETF SAVE_R2 

NI $BCB_PFLAG1 , X ^ FF ' - $BCB_SRC_ACUM 

ENDIF 

RESETF XLATE_TO_E 

IF {TM, $BCB_PFLAG2 , $BCB_CCSID_CNV_ATOE , 0) 

SETF XLATE_TO_E 
ENDIF 

a #BAS 14 , =:A {DO_XTAB_SHORT) 

kU ENDIF 



CHARi9999 DS OS 

I J B CHARACTER^END 

* 

* BfesT CHARACTER TO CHARACTER ILEN > OLEN 

* TSIPLATE code USED FOR NON- SPACE TRUNCATION 



CHAR CHAR_010 DS OS 

CHiffl'CHAR 010_OLEN_A EQU * -CHAR_CHAR_010+1 LEN OF CLC 

CHAiTcHArIoIO^SDBN^A EQU *-CHAR„CHAR_010+2 LOC OF SOURCE TO COMP 

CHmTcHAR 010 B255 A EQU *-CHAR_CHAR_010+4 LOC OF 255 SPACES 

~CLC" oTo,0),0(0) SDB+(0LEN-1) ,BWK_BUFF255 
CHaK CHAR 010 BERR A EQU *-CHAR_CHAR_010+2 

X "bNe" 0Tr12) NOT SPACES? -> #@ERR0R4 
CH;^' char OlO L EQU *-CHAR__CHAR_010 
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